home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 5 / 64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64 / print using (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  34 lines
  1. 100 s=0:input "startadresse";b
  2. 110 for i=b to b+335
  3. 120 read a
  4. 130 s=s+a:poke i,a
  5. 140 next i
  6. 150 if s<>36986 then print " fehler in den datazeilen [146]":stop
  7. 160 poke 785,b-256*int(b/256):poke 786,b/256
  8. 170 print " alles ok. "
  9. 199 rem testbeispiele
  10. 200 for e=0 to 9
  11. 210 f=(NULL)*10^e
  12. 220 a$=(usr(f),11,0)+""
  13. 230 print a$;usr(f),13,1;usr(f),14,2
  14. 240 next e
  15. 250 end
  16. 299 rem datazeilen
  17. 300 data32,141,173,32,221,189,32,253,174,32,158,183,134,88,32,253,174,32
  18. 301 data158,183,134,87,104,104,162,255,160,0,232,189,0,1,240,117,201,69,240
  19. 302 data8,201,46,208,242,138,168,208,238,173,2,1,201,46,208,12,202,160,1
  20. 303 data200,185,1,1,153,0,1,208,247,189,2,1,41,15,10,133,2,10,10,101,2,125
  21. 304 data3,1,233,47,188,1,1,192,45,240,23,105,3,134,2,229,2,168,169,48,157
  22. 305 data0,1,232,136,208,249,169,0,157,0,1,240,168,133,2,169,0,157,0,1,138
  23. 306 data24,101,2,168,189,0,1,240,8,201,48,176,4,169,48,208,1,202,153,0,1
  24. 307 data136,208,236,169,46,141,1,1,208,129,152,240,18,165,87,208,7,152,170
  25. 308 data189,1,1,208,119,169,44,153,0,1,208,12,196,87,240,40,169,44,157,0
  26. 309 data1,232,208,16,132,2,56,138,229,2,56,233,1,197,87,240,19,176,72,168
  27. 310 data169,48,157,0,1,232,200,196,87,208,247,169,0,157,0,1,173,1,1,201,48
  28. 311 data176,17,232,138,168,185,255,0,153,0,1,136,208,247,169,48,141,1,1,228
  29. 312 data88,176,20,164,88,189,0,1,153,0,1,136,202,16,246,169,32,153,0,1,136
  30. 313 data16,250,169,0,160,1,76,135,180,56,229,87,133,2,138,56,229,2,170,189
  31. 314 data0,1,201,53,144,179,138,168,136,240,24,185,0,1,201,48,144,246,24,105
  32. 315 data1,201,58,153,0,1,208,157,169,48,153,0,1,208,229,138,168,185,0,1,153
  33. 316 data1,1,136,208,247,169,49,141,1,1,232,208,131
  34.